home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 11 Exotic Applications / D64.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.1 KB  |  51 lines
  1. 10 POKE55,.:POKE56,160:CLR:DIMUI$:Z$=CHR$(.):Q$=CHR$(34)
  2. 20 PRINT"[147][208]RESS D FOR DOCS.":PRINT"[208]RESS X TO EXIT."
  3. 25 PRINT"[208]RESS P TO PROCESS ";Q$;"[196]64";Q$;" FILE."
  4. 30 GETA$:IFA$="P"THEN50
  5. 35 IFA$="X"THENPRINT"[147][142]":END
  6. 40 IFA$="D"THENSYS3979:GOTO10
  7. 45 GOTO30
  8. 50 PRINT"[147]"
  9. 55 PRINT"[197]NTER DEVICE # OF SOURCE DRIVE.":PRINT"([197]NTER 0 TO START OVER.)"
  10. 65 PRINT"  8[145]":INPUTDR:IFDR=.THEN10
  11. 70 IFDR<4ORDR>30THENPRINT"[147][201][204][204][197][199][193][204] [196][197][214][201][195][197] [206][213][205][194][197][210]":GOTO55
  12. 75 POKE186,DR:POKE185,.:POKE184,8:POKE183,1
  13. 80 POKE187,24:POKE188,8:SYS65472:IFPEEK(783)AND1THENCLOSE8:I=DR:GOSUB600:GOTO55
  14. 85 CLOSE8:OPEN15,DR,15:INPUT#15,J$,O$,H$,N$:IFJ$="00"THEN90
  15. 87 PRINT"[147]";J$;",";O$;",";H$;",";N$:CLOSE15:GOTO55
  16. 90 GOSUB800:PRINT:IFF$=""THENCLOSE15:PRINT"[147][206][207] [198][201][204][197][211] [211][197][204][197][195][212][197][196]":GOTO55
  17. 500 PRINT"[147]"
  18. 505 PRINT"[197]NTER DEVICE # OF DESTINATION DRIVE.":PRINT"([197]NTER 0 TO START OVER.)"
  19. 515 PRINT"  8[145]":INPUTDW:IFDW=.THEN920
  20. 520 IFDW<4ORDW>30THENPRINT"[147][201][204][204][197][199][193][204] [196][197][214][201][195][197] [206][213][205][194][197][210]":GOTO505
  21. 522 IFDW=DRTHENPRINT"[147][201][204][204][197][199][193][204] [196][210][201][214][197] [195][207][205][194][201][206][193][212][201][207][206]":GOTO505
  22. 525 POKE186,DW:POKE185,15:POKE184,16:POKE183,2:POKE187,22:POKE188,8
  23. 530 SYS65472:IFPEEK(783)AND1THENCLOSE16:I=DW:GOSUB600:GOTO505
  24. 535 INPUT#16,J$,J$:J$=RIGHT$(J$,4):IFJ$="1541"ORJ$="1571"THEN545
  25. 540 PRINT"[147][206][207][212] 1541/1571 [196][210][201][214][197]":CLOSE16:GOTO505
  26. 545 OPEN9,DW,9,"#":PRINT#16,"U1";9;.;1;.:PRINT#16,"U2";9;.;1;.
  27. 550 INPUT#16,J$,O$,H$,N$:IFJ$="00"THEN560
  28. 555 PRINT"[147]";J$;",";O$;",";H$;",";N$:CLOSE9:CLOSE16:GOTO505
  29. 560 PRINT"[147][207]NE MOMENT PLEASE...":PRINT"[212]  [211]":PRINT"[163][163] [163][163]"
  30. 575 OPEN8,DR,8,F$:SYS3745
  31. 580 PRINT"...[196]ONE":GOTO900
  32. 600 PRINT"[147]?[196][197][214][201][195][197]";I;"[157] [206][207][212] [208][210][197][211][197][206][212]":RETURN
  33. 800 PRINT"[147][197]NTER DIRECTORY SEARCH STRING."
  34. 805 PRINT"  *[145]":INPUTA$:OPEN8,DR,.,"$"+A$:PRINT"[147]0 ";
  35. 810 GET#8,A$,A$,A$,A$,A$,A$
  36. 815 GET#8,A$:IFA$<>""THENPRINTA$;:GOTO815
  37. 820 PRINT:PRINT"[208]ROCESS (Y/N)?"
  38. 825 GET#8,A$,A$
  39. 830 GET#8,A$,F$:B=ASC(A$+Z$)+256*ASC(F$+Z$):F$="":PRINT"[145][157]";B;
  40. 835 GET#8,A$:IFA$="B"THEN875
  41. 840 PRINTA$;:IFA$<>Q$THEN835
  42. 850 GET#8,A$:PRINTA$;:IFA$<>Q$THENF$=F$+A$:GOTO850
  43. 855 GET#8,A$:IFA$<>""THENPRINTA$;:GOTO855
  44. 860 GETA$:IFA$="Y"THEN875
  45. 865 IFA$="N"THENPRINT"[145]":GOTO825
  46. 870 GOTO860
  47. 875 CLOSE8:RETURN
  48. 900 PRINT"[208]RESS <[210][197][212][213][210][206]>."
  49. 910 GETA$:IFA$<>CHR$(13)THEN910
  50. 920 CLOSE8:CLOSE9:CLOSE15:CLOSE16:GOTO50
  51.